(disassemble-1): Use `mapc' rather than `mapcar'.

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 01378a7f8d662f9ae09081bee4815592b1144e0a..60b29bdb94971349c815535953b42d02773e8d67 100644 (file)
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -250,7 +250,7 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
                         (+ indent disassemble-recursive-indent)))
                       ((eq (car-safe (car-safe arg)) 'byte-code)
                        (insert "(<byte code>...)\n")
-                       (mapcar ;recurse on list of byte-code objects
+                       (mapc ;recurse on list of byte-code objects
                         '(lambda (obj)
                            (disassemble-1
                             obj